home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / Duck Report / _SETUP.1 / DQViewText.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-12-02  |  941 b   |  45 lines
  1. unit DQViewText;
  2.  
  3. interface
  4.  
  5. uses
  6.     Windows, ComCtrls, Messages, SysUtils, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls;
  8. type
  9.   TFormDQViewText = class(TForm)
  10.     Memo: TMemo;
  11.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  12.       Shift: TShiftState);
  13.     procedure FormShow(Sender: TObject);
  14.     procedure FormCreate(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.       cSQL:        Array[0..10240] of Char;
  19.   end;
  20.  
  21. var
  22.   FormDQViewText: TFormDQViewText;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27. Procedure TFormDQViewText.FormCreate(Sender: TObject);
  28. Begin
  29.     FillChar (cSQL, Sizeof (cSQL), $0);
  30. End;
  31. Procedure TFormDQViewText.FormKeyDown(Sender: TObject; var Key: Word;
  32.   Shift: TShiftState);
  33. Begin
  34.     Case Key of
  35.       VK_ESCAPE:    Close;
  36.   End;
  37. End;
  38. Procedure TFormDQViewText.FormShow(Sender: TObject);
  39. Begin
  40.     if cSQL[0] <> Char ($0) Then
  41.         Memo.SetTextBuf (cSQL);
  42. End;
  43.  
  44. End.
  45.